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Contact with the other side. 

What sparked my interest in the Trs-80 color computer was nrv 
Dad. After he died I received some disks; well actually about 500 5 1 / 
inch floppy disks. I didn't have a computer to run them on, as thi 
sort of disk drive is older and most computers do not come with thi 
size disk drive anymore. So my first task in finding out what was 01 
those disks, and how they could tell me more about my father, wa< 
tolocate the hardware. 

tl first went to some websites and sent out emails to everyone 
uld find. The first person that answered was Roger Taylor. He 
introduced me to his website where a bunch of CoCo users go t( 
Then he told me how to get on a coco mailing list with about \ 
members on it. So I got on that list and sent out an email askim 
anyone who might have the equipment I need to sell it to me. Thi 

Rsponse I got brought me to tears! 
First to contact me was Mannequin, he offered up a Tandy trs8( 
computer for free. Then up was J im and he offered up various disl 
drives, again for free. Then up was a man that is like a father to mi 
Mr. Bob whom offered me other hardware such as monitor again f< 
free. (Bob also offered to pay shipping on all of these items before 
could even say no!) The people on this coco mailing list have touchei 
my heart deeply. Without hesitation and just as fast as I could asl 
these men took me into their lives like a daughter and were willing t< 
help me with my quest to find out who my father was. 

So to Mannequin and his family, Uncle Jim Cox, and Daddy Bol 
and of course Roger Taylor, for leading me to these wonderful peoph 
Thank you again so much. 



Interview of the month 
Bob Devries 
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This is a little part of the newsletter where I interview someone from the CoC< 
community. This time is going to be Mr. Bob Devries. Bob is a student in a sm< 
country town of Dalby, Queensland, Australia. He is currently studying for hi« 
certificate in Christian ministry. "I hope to specialise in counseling." He says 
When I asked him what he does in his free time he said, "Hehehe, free time? Well 
I spend a lot of time chatting to a certain lady on the cocochat....and a bunch 
really great guys there too. As well as that I also do Christian counseling on-line." 

He started working with the coco through his friends at work. They hac 
actually built a coco clone from the schematics published by Motorola in thei 
handbook. Bob has written a number of utility programmes and even contributec 
in a small way on the current nitros-9 project. 

He was also part of something much bigger. He took over the os-9 newslettc 
in Sydney when the publisher asked him to. Graham Nichols started it off, am 
then in early 1988 he decided he could no longer keep it going. He asked Bot 
Gordon Bentzen, and Don Berrie if they would take it over. They started off witl 
his original mailing list, and it sort of grew from there. They published 11 issue 
per year. 






They added other guys to their "staff", and also set up an Australian Oi 
software library. Bob, Gordon, and Don continued until August 1994. Interest in tl 
newsletter then sort of waned, and got to where it was no longer economical to d< 
They did only OS9 stuff, but printed articles of interest about hardware, software 
reviews, and of course, programme listings in Basic09, C, and Assembler. Th< 
didn't only cover OS9 for the Coco, either. The trio spread out to the 68000 versioi 
when the MM/1 came out, and also mentioned the Atari and other OS9 version* 
During that time, Bob built his own 68000 based computer from a kit, The SECAI 
AS-68K, and it came with OS9/68000 Professional. Bob was then an electronic 
technician. He built, repaired, and programmed computers for a hobby.. ..and stil 
does a bit. "I was actually able to get my first Coco3, because I upgraded a numbt 



of Coco2 units for the local Tandy store. I upgraded 10 16k coco2 computers t( 
64K, and in exchange got a 128K coco3. That was in '86 when they came oul 
Along with the coco3 of course, I got into OS9 Level 2.... and never looked bad 
Yeah. I love them so much because they are virtually indestructible, and easy t< 
programme. " he said. 

Bob Devries can be found online most of the time or in the coco3.com ch< 
room. So stop in and say HI to him and tell him you read all about him in this issu< 
of the newsletter! 



keyboard Characters and Symbols 

ENTER tells the computer you've ended a line 

BREAK stops running program 

CLEAR clears the screen and returns the cursor to the upper left corner 

SHIFT @ pauses your running program. Press any key to continue 

SHIFT "LEFT ARROW" erases an entire line if ENTER has not been pressed 

"LEFT ARROW" backspaces the cursor and erases one character at a time 

? means the same as the command PRINT 

: separates statements on a line 

; tells the computer to continue PRINTing on the same line 

+ addition, and also combines strings 

- subtraction 

x or * multiplication 

/division 

( ) tells the computer to do what's inside first 



Basic Commands 



CLS clears the screen with green 

CLS ( ) clears the screen with the color indicated by the number inside the 

parentheses e.g. CLS 5 

CLOAD loads a program from tape 

CSAVE saves a program to tape 

END tells the computer to end your program 

FOR/NEXT creates a loop in a program that the computer will repeat the number 

of times 

GOTO sends the computer to the line number indicated 

LIST lists a program on the screen 

LLIST lists a program on the printer 

PRINT tells the computer to print whatever follows 

PRINT @ prints at a specific screen location 

PRINT TAB indents the number of spaces indicated within parentheses 

PRINT # - 2 prints on the printer 

REM a remark statement that the computer ignores 

RESET resets a point to black 

SET sets a point on the screen at the position and color specified 

SOUND sounds a specified tone for the duration of time specified 

STEP causes the for/next loop to count by the number that follows the word STEI 



How to set up a coco and get it running 

(from a newbie's point of view) 

Setting up a coco for me sounded pretty easy. I figured you just sit it dowr 
and plug it in; well its a little bit more complicated than that. 

So here is my account of what I had to do to get it up and running. I had to fin< 
a stable place to put it. I knew I had to give it its own desk so that the oth( 
components would sit near it comfortably. I also had to make sure my desk was 
deep enough to set the keyboard in front of the monitor with a little distant 
between the two. What sits where? I had to think of how to position things as well 
I put my monitor in the middle of the desk with the keyboard in front of it. Then 
put my MPI and disk drives to the right side of the keyboard. I later moved the dii 
drives to the left of the computer since the ribbon was long enough to do so. 






Ok now I had to plug it all up. Everything was pretty self explanatory like th 
power cords. I had to figure out that the monitor plugged into the underside of th 
computer and that the mouse plugs into the right joystick plug in the back of t 
coco. The MPI or floppy controller only plugged into one spot so that was easy t 
figure out as well. It plugged into the right side of the computer. Then I went t 
plug it all into an outlet and soon realized I had only two spots. So I invested in 
power strip to plug all the power cords into. There were 4 power cords, one for t 
monitor, the drives, the computer, and the MPI. 

Now before I turned mine on I asked some coco users for any precautions 01 
how to do so. 

I These are some of the comments I received: 
MAKE SURE the hardware is secure and not wobbling. 
MAKE SURE the MPI or the disk controller is securely attached to tl 
computer. 

MAKE SURE there are no disks in drive and that the drive doors are open. 
TAKE A MINUTE to look at where all the power switches and the reset buttor 
are on all the hardware. 

I MAKE SURE no cords are in the way of your feet or chair etc. 
MAKE SURE there is nothing blocking the doors on the drives. 
Ok now comes the part when I turned it on. There is a very extremeh 
important power on sequence. First you turn on the Monitor, Then the MPI, ther 
the Drives, and always turn on the computer last! You do the opposite to turn of 
the system. First turn off the computer, then the drives then the MPI and then th< 
monitor. You can hit the reset button if you want to stop a program and restar 
your computer. Just for fun try this. With the computer on hold down the CTRI 
and ALT on the keyboard, and RESET button on the back of the computer, then l< 
go of the reset button while still holding down the CTRL and ALT keys, then let g< 
of them and you will see a picture of three men. I was told that these guj 



designed the software for the coco 3. 



I 



There are a few no no's I learned about my coco that could cause permaner 
mage to it: 



DO NOT ever move the MPI or the computer around while it is turned on. 
DO NOT scoot it back and forth on the desk or anything it will apparently 

!our motherboard. 
NEVER unplug or plug anything into the computer while it is turned on. 
DO NOT turn the computer off or on with a disk in the drives. 
MAKE SURE the drives are empty before turning them on, or at least the driv 
oor is open. 






Now you got the thing on and don't know what to do with it. Here are some 
my first basic commands I learned. I learned how to change the screen color usin 
CLS 1-8. Just type CLS and a number and the screen changes colors. Example i 
CLS 2. To get it back to command prompt color type: CLS 1 . 1 learned how to mak 
sounds using the "sound" command. For example type "SOUND 1, 100" withou 
the quotes. I also learned that the coco is a calculator. Try this math problem 
Type PRINT 1589 * 23 and press enter. You can also add, divide and subtract usin 
the same format. If you have the book "Getting Started with Extended Col 
Basic", it will tell you all you need to know to get started. 






Well I hope I have given you all you need to get your Color Computer 3 set u 
and ready for some programming. So have fun with it. 



SPLASH 'N RUN 

A lesson in assembly language 

By Roger T. 

Ever wonder how some CoCo games can automatically start running after y 
type 'LOADM'? What about the games that show a title while the program 
loading? Well, thanks to the multi-origin structure of CoCo .BIN (binary) files, yoi 

K^ a n do these things and more. 
Most CoCo assemblers honor the ORG directive which sets the starting 
address for subsequent program code or data. The ORG directive informs the 
assembler and the LOADM command where the following code will reside ii 
memory when it's loaded. Since the LOADM command obeys this wish whei 
loading a program, it can POKE code where ever you like, including the videc 
screen and system memory area! 

Since these .BIN files hold all of the starting addresses (origins) and the code 
place afterwards, they're basically scripts that tell LOADM what to POKE ai 
where to POKE it. If only you could do it as fast! 

Ok, knowing what we know, we should be able to whip up a small progra 
that writes over our video screen during the LOADM process as well as make o 
program automatically run after the LOADM command is done. The latter trick 
possible because BASIC is always calling certain vectors in low memory, and 
will intercept those vectors during the LOADM process. 

Assemble the following program using EDTASM or any of the 6809 cro 
assemblers available, like CCASM or CASM, etc. CCASM is available 
www.CoCo3.com. 






* SPLASH 'N RUN 

* How to add a splash screen to your ML programs 
then automatically execute after LOADM. 



* The following section causes the LOADM command to 

* start loading subsequent code right onto the 

* 32-column VDG screen. So, we create 16 lines of 

* 32 chars containing our splash screen . 







FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 
FCC 



* Here ' s the actual program code that gets executed, 

* which is nothing more than an endless loop. 



ORG 3584 
START BRA START 



loop forever 



* This section causes the Disk BASIC ' LOADM' command 

* to start loading the subsequent code right into the 

* system memory at 356, which just happens to be some 

* vectors that are called by BASIC when the LOADM 

* command is finished. 



ORG 356 
LBRA START 
LBRA START 
LBRA START 



replace 3 vectors with our 
our own code that jumps 
right into our program! 



END START 






Basic programs 






This is a name and address programme that uses random access filim 
method that is part of DISK BASIC. Like a little address book, you can search fc 
an entry, add new ones, delete records etc. It actually has a HELP section in it, to< 
It was written for Australian conditions, so be aware that the postcode field is onh 
4 characters long. The programme will run on a coco3, but it was designed to rui 
on the 32 column screen (I.E. WIDTH32) questions can be directed to my em< 
address: bdevries@qil.com.au The phone number listed in the program 
obsolete. 



10 'SIMPLE ADDRESS DATABASE USING 

20 GOTO 50 

30 SAVE "DATABASE" :DIR:PRINTFREE (0) 

40 END 

50 CLS:CLEAR500:RECORD=0 

60 PRINT© 3, "SURNAME :- 

70 PRINT033, "FIRSTNAME 

80 PRINT068, "STREET:- 

90 PRINT01O2, "CITY: — 

100 PRINT@ 12 9, "POSTCODE: 

110 PRINT0 143," PHONE : 

120 PRINT0449, "RECORD####" ; :PRINT@472, "LOF 

###"; :PRINT@480, "SEARCH eDIT gOTO pRINT hELP qUI"; 

130 GOSUB1010 

140 PRINT@456,USING"###"; RECORD; 

150 PRINT@476,USING"###";LF; 

160 KEY$=INKEY$ : IF KEY$=" "THEN160 

170 KEY=INSTR("PEGHSQ",KEY$) 

180 ONKEY+1 GOSUB 210,240,410,540,650,760,220 

190 GOSUB 590 

200 IF KEY$="H" THEN GOTO 50 ELSE GOTO 160 

210 RETURN 

220 CLS:END 

230 'PRINT ONE RECORD OR ALL RECORDS 

240 PRINT042O, "RECORD # OR 

aLL"; : INPUTR$ :PRINT@420, STRING$ (19, 32) ; 

250 IF R$="" THEN RETURN ELSEIF LEFT$ (R$, 1) ="A" THEN 360 

260 R1=VAL(R$) : IF Rl=0 THEN GOSUB600 : GOTO240 ELSE IF Rl>LF 

GOSUB600:GOTO 240 

270 RECORD=R1:GOSUB1190 

Nl$ 

N2$ 

S$ 

C$ 

Pl$ 

P2$ 




THEN 



280 
290 
300 
310 
320 
330 
340 



PRINT#-2, 
PRINT#-2, 
PRINT#-2, 
PRINT#-2, 
PRINT#-2, 
PRINT#-2, 



' SURNAME 

•FIRSTNAME 

STREET 

CITY 

' POSTCODE 

PHONE 



PRINT#-2,CHR$(13) ;CHR$(13) 



350 RETURN 

360 FOR X=l TO LF 

370 R1=X:GOSUB270 

380 NEXT X 

390 RETURN 

400 'EDIT RECORD 

410 GOSUB420:GOTO490 

420 GOSUB52 :LINEINPUT" SURNAME : ";N$:IFN$o" M THEN Nl$ = 

LEFT$ (N$+STRING$ (20, 32) , 20) 

430 GOSUB520:LINEINPUT"FIRSTNAME: ";N$:IFN$o" M THEN N2$ = 

LEFT$ (N$+STRING$ (20, 32) , 20) 

440 GOSUB520 : LINEINPUT " STREET : ";N$: IFN$o M " THEN S$ = 

LEFT$ (N$+STRING$ (20, 32) , 20) 

450 GOSUB520 : LINEINPUT" CITY : " ;N$ : IFN$<>" " THEN C$ = 

LEFT$ (N$+STRING$ (20, 32) , 20) 

460 GOSUB520:LINEINPUT"POSTCODE: ";N$:IF N$o""THEN Pl$ = 

LEFT$ (N$+STRING$ (4, 32) , 4) 

470 GOSUB520:LINEINPUT"PHONE: ";N$:IF N$o""THEN P2$ = 

RIGHT$ ( STRING$ (10,32) +N$ ,10) 

480 RETURN 

490 GOSUB1060:GOSUB890 

500 GOSUB520:PRINT@270, "CORRECT ?"; 

510 K$=INKEY$:IFK$=""THEN510 ELSE IF K$="Y" OR K$="y" THEN 

PRINT027O," ";:GOTO 130 ELSE 410 

520 PRINT@256,STRING$(31,32) :PRINT@257, " " ; : RETURN 

530 'GOTO RECORD NUMBER 

540 PRINT0 4 2 0, "";: INPUT "RECORD #";R1 

550 IF R1=LF+1 THEN GOSUB 970:GOTO580 ELSE IFR1>LF OR Rl=0 THEN 

600 

560 RECORD=Rl 

570 GOSUB1190: 'GET RECORD 

580 PRINT0456, US ING "###"; RECORD; : GOSUB 890: 'PRINT RECORD TO 

SCREEN 

590 PRINT@420,STRING$(14,32) : RETURN 

600 PRINT042O, "INVALID RECORD"; 

610 FOR TD=1 TO 300:NEXTTD 

620 PRINT@420,STRING$(14,32) 

630 RETURN 

640 'HELP SCREENS 

650 CLS:PRINT@8, "MINI DATA BASE" :PRINT@40, "BY BOB DEVRIES" 

660 PRINT: PRINT" THIS IS A VERY SIMPLE DATABASE AND ITS FEATURES 

ARE SIMPLE TO UNDERSTAND .": PRINT" S. SEARCHES THE DATABASE FOR 

AN ENTRY. YOU MAY USE ONE OR ALL FIELDS, AND LEAVE THE UNUSED 

ONES BLANK . " 

670 PRINT" E. EDITS THE CURRENT RECORD THAT IS THE ONE 

DISPLAYED, BUT USE THE GOTO COMMAND FIRST. IF YOU YOU DON'T 

WANT TO CHANGE A FIELD JUST PRESS ENTER. ": PRINT" PRESS ANY KEY 

CONTINUE"; 

680 I$=INKEY$ : IFI$ = " "THEN680 




ALL 


. IF 


'A' 


IS 


THE 


PRINTER' 






BOB 


DEVRIES 



PH 



690 CLS: PRINT" G. GOTO A RECORD. RECORD NUMBER MUST LESS THAN OR 

EQUAL TO LOF OR TO INSERT A NEW RECORD, GOTO LOF + 1. E.G. IF 

LOF=3 THEN GOTO 4 WILL CREATE A NEW BLANK RECORD FOR YOU TO 

EDIT. " :PRINT" P. PRINT RECORDS. YOU WILL BE"; 

700 PRINT" PROMPTED FOR RECORD NUMBER OR 

CHOSEN ALL THE FIELDS WILL BE PRINTED ON 

710 PRINT: PRINT" DIRECT ANY QUESTIONS TO: 

3727816" 

720 PRINT0481, "PRESS ANY KEY TO CONTINUE"; 
I$=INKEY$:IF 1$="" THEN 730 
RETURN 

'SEARCH FOR ENTRY 

Nl$=" " :N2$=" " : S$=" " : C$=" " : Pl$=" " : P2$=" " : X=0 : GOSUB420 
N3$=N1$ :N4$=N2$ :S1$=S$ :C1$=C$ :P3$=P1$ :P4$=P2$ 
X=X+1:IF X>LF THEN PRINT042O, "NOT FOUND" ;: GOSUB520 :FORTD=l TO 



730 

740 

750 

760 

770 

780 

50: NEXT TD: RETURN 

790 RECORD=X:GOSUB1190 



800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 



IF 
IF 
IF 
IF 
IF 
IF 



N3$= 
N4$= 
Sl$= 
Cl$= 
P3$= 
P4$= 



THEN 810 ELSE IFN3$<>N1$ THEN GOTO 870 
THEN 820 ELSE IFN4$<>N2$ THEN GOTO 870 
THEN 830 ELSE IFS1$<>S$ THEN GOTO 870 
THEN 840 ELSE IFC1$<>C$ THEN GOTO 870 
THEN 850 ELSE IFP3$<>P1$ THEN GOTO 870 
THEN 860 ELSE IFP4$<>P2$ THEN GOTO 870 

GOSUB520 : RETURN 



GOSUB 890 :PRINT@456,USING"###"; RECORD; 
GOTO780 

ON SCREEN 




A$:N2$ = A$:S$ = A$:C$ = A$:P1$ = 



'PRINT RECORD 

PRINT@11,N1$; 

PRINT@43,N2$; 

PRINT@75,S$; 

PRINT@107,C$; 

PRINT@138,P1$; 

PRINT@149,P2$; 

RETURN 

'PREPARE FOR NEW RECORD 

A$ = STRING$(20, "-") :N1$ = 

" ":P2$ = " " 

980 RECORD=Rl 

990 RETURN 

1000 'FIND FILE SIZE OR CREATE IF NONE 

1010 OPEN"D",#l, "DATABASE/DAT:0",100 

1020 LF=LOF(l) 

1030 CLOSE#l 

1040 RETURN 

1050 'OPEN FILE TO 'PUT' DATA 

1060 OPEN"D",#l, "DATABASE /DAT: 

1070 FIELD #1,20 AS SN$,20 AS CN$,20 AS ST$,20 AS CT$,4 AS PC$, 

AS PH$, 6 AS SP$ 

1080 LSET SN$=N1$ 

1090 LSET CN$=N2$ 



INTO IT 
O'MOO 



1100 LSET ST$=S$ 

1110 LSET CT$=C$ 

1120 LSET PC$=P1$ 

1130 RSET PH$=P2$ 

1140 LSET SP$=STRING$(6, "-") 

1150 PUT#1, RECORD 

1160 CLOSE#l 

1170 RETURN 

1180 'OPEN FILE TO 'GET' DATA FROM IT 

1190 OPEN"D",#l, "DATABASE/DAT:0",100 

1200 FIELD #1,20 AS SN$,20 AS CN$,20 AS ST$,20 AS CT$,4 AS PC$,ll 

AS PH$, 6 AS SP$ 

1210 GET#1, RECORD 

1220 N1$=SN$ :N2$=CN$ :S$=ST$ :C$=CT$ :P1$=PC$ :P2$=PH$ 

1230 CLOSE#l 

1240 RETURN 



_.. 



Pill 
By Rick 
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IF YOUR COCO CAN'T HANDLE THEHIGH SPEED POKE, DELETE LINE 101 
BEFORE RUNNING. 

1 GOTO100 

2 FORY=0TO8:PMODE3:GET(4, 9-Y) - (28, 18-Y) , P :PMODE3, 2 :PUT (120, 0) - 
(144,10) ,P:PMODE3:GET(10,1)-(18,8) , P :GET (10, 9) - (18, 9) ,L 

3 PUT (10, 2) -(20, 9) ,P:PUT (10,1) -(20,1) ,L 

4 RT=TIMER:IFRT=TR THEN4ELSETR=RT 

5 NEXT:FORY=0TO192 

6 PMODE3:GET(4,0)-(28, 9) , P :PMODE3, 2 :PUT (120, Y) - 
(144, Y+9) ,P:PMODE3:GET(10,1)-(20,8) , P :GET (10, 9) - (20, 9) ,L 

7 PUT (10, 2) -(20, 9) ,P:PUT (10,1) -(20,1) , L: IFINKEY$>" "THEN999 

8 RT=TIMER:IFRT=TR THEN8ELSETR=RT 

9 NEXT:GOT02 
0,1,1,1,1,1,1,1,1,1,0 
1,1,1,0,4,4,6,0,1,1,1 
1,1,1,0,4,0,4,0,1,1,1 
1,1,1,0,4,0,4,0,1,1,1 
1,1,1,0,4,4,6,0,1,1,1 
1,1,1,0,4,5,6,0,1,1,1 
1,1,1,0,4,0,4,0,1,1,1 
1,1,1,0,4,0,4,0,1,1,1 
0,1,1,1,1,1,1,1,1,1,0 

100 PMODE0:PCLEAR5:DIM 
P(20,9) ,L(18,1) :P1(1)=2:P1(0)=1:P1(2)=2:P1(4)=0:P1(5)=2:P1(6)=3 

101 IFPEEK(33021)=50THENPOKE65497,0ELSEPOKE65495,0 

102 PMODE3,2:PCLS2:COLOR0:LINE(0, 0)-(254, 8) , PSET, BF :PMODE4, 2 
103 

DRAWBM86 , ; CO ; R1D6L1R2U6R2D1R1D1L1D1 ; NLl ; D1R1D1L1D1L1 ; BR5 ; U6R1D( 
R4 ; BR3BU1 ; U5R1D6R3U6R1D5 ; BD1BR3 " 



10 


DATA 


20 


DATA 


30 


DATA 


40 


DATA 


50 


DATA 


60 


DATA 


70 


DATA 


80 


DATA 


90 


DATA 



104 DRAWNU6 ; Rl ; NR4 ; U3 ; NR2 ; U3R4 ; BR3 ; BRIO ; BD6 " 

105 

DRAW M BR3 ; L1U1L1U1L1U2R1 ; NDl ; U1R1U1R1 ; BR3 ; ND2 ; R1D3R1D3R1U3R1U3R1D: 

;BR3BD4" 

106 

DRAW"R1U2R1D1U2R1U2R1D1U2R1 ; BR3 ; ND6 ; R1D2 ; ND4 ; R1D1R1D1R1 ; NU4 ; D2R11 

6 ; BR3 ; R1D1R1D1R1D2L1 ; NUl ; D1L1D1L1 ; BR6 ; BR2 ; Rl ; BU2 ; L1U1R2U1R1U1L1UI 

L3D1L1" 

107 SCREEN1,1 

108 A$=INKEY$:IFA$="N"THEN111 

109 IFA$="Y"THENP1(1)=3:G0T0111 

110 GOTO108 

111 PM0DE3 , 2 : PCLS1 : PMODEO : PCLS1 : PMODE3 : PCLS 

112 FOR Y=0 TO 8: FOR X=0 TO 20 STEP 
2:READS:PSET(X+4,Y,P1(S) ) :NEXT X,Y 

113 GET (4,0) -(26, 8) , P, G:LINE (6, 0) - (24, 0) , PRESET : PUT (4, 1) - 
(26,9) ,P,PSET 

114 PMODE4,2:PCLS:TR=TIMER:GOT02 

999 POKE65496,0:POKE65494,0: CLEAR: END: RUN 

1997 'A SIMPLE PROGRAM I DID WAYBACK IN THE EARLY 1990S. 
BEFORERELEASING IT, I TRANSFERRED ALL TEXT TO THE GRAPHICS 
SCREENS, AND MAKE IT REQUIRE A PCLEAR 5 INSTEAD OF A PCLEAR 8 

1998 'ENTER "DEL 101" BEFORE YOURUN THIS PROGRAM IF YOUR COCO 
CAN'T HANDLE THE HIGH SPEED POKE (POKE 65495,0). 

1999 'PUBLIC DOMAIN 11/30/2004 - RICHARD KELLY. E-MAIL ME AT: 
ARBORPAQ YAHOO . COM 



